home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Magazin 1997 March / Image.iso / schwieri.dxr / Postit_12_Postit Select.ls < prev    next >
Encoding:
Text File  |  1996-10-28  |  815 b   |  33 lines
  1. global gPostitSprite, gPlayers, gPostitMode
  2.  
  3. on mouseUp
  4.   RestoreSpriteCursors()
  5.   ReactivateSprites()
  6.   if the clickOn = (gPostitSprite + 3) then
  7.     if gPostitMode = #delete then
  8.       repeat with l in gPlayers
  9.         if getAt(l, 1) = the text of cast "NameField" then
  10.           deleteOne(gPlayers, l)
  11.           set the text of field "NameField" to EMPTY
  12.           RedrawNameList(1)
  13.           set the visible of sprite 5 to 0
  14.           SpriteCursor(5, 0)
  15.           exit repeat
  16.         end if
  17.       end repeat
  18.     else
  19.       put "exit"
  20.       exitProgram()
  21.       quit()
  22.     end if
  23.   else
  24.   end if
  25.   if the castNum of sprite 36 = the number of member "WettVideo" then
  26.     KickBetVideo()
  27.     repeat with i = 3 to 6
  28.       set the visible of sprite i to (36 + i) = the clickOn
  29.     end repeat
  30.   end if
  31.   continue()
  32. end
  33.